home *** CD-ROM | disk | FTP | other *** search
/ Photo Mantan 7 / Full Tank 7 - Disc 5.iso / mac / Cumulus / DemoMovieフォルダ / DemoMovieB / SHARED.DXR / 00501.ls next >
Encoding:
Text File  |  1997-03-28  |  624 b   |  25 lines
  1. on btndown where, oto
  2.   set spnum to clickOn()
  3.   set orgh to the locH of sprite clickOn()
  4.   set orgv to the locV of sprite clickOn()
  5.   repeat while the stillDown
  6.     if rollOver(spnum) then
  7.       set the locH of sprite spnum to orgh + 3
  8.       set the locV of sprite spnum to orgv + 3
  9.     else
  10.       set the locH of sprite spnum to orgh
  11.       set the locV of sprite spnum to orgv
  12.     end if
  13.     updateStage()
  14.   end repeat
  15.   set the locH of sprite spnum to orgh
  16.   set the locV of sprite spnum to orgv
  17.   updateStage()
  18.   if rollOver(spnum) then
  19.     puppetSound(oto)
  20.     updateStage()
  21.     go(where)
  22.   end if
  23.   puppetSound(0)
  24. end
  25.